ماکروی روز -روز سوم :ذخیره شیتهای اکسل با فرمت PDF
به سومین روز از سلسله مطالب ” ماکروی روز” خوش آمدید .
در رو زهای قبلی ماکروهایی را مورد بررسی قرار دایم که در صورت نیاز می توانید از طریق لین کهای زیر به این ماکروها دسترسی پیدا کنید .
مطلب مرتبط : ماکروی روز -روز اول : مخفی کردن شیتها در اکسل
مطلب مرتبط: ماکروی روز -روز دوم : نمایش شیتهای مخفی شده در اکسل
اما امروز و در این مطلب آموزشی می خواهیم به بررسی ماکرویی بپردازیم که با استفاده از آن می توانیم تمام شیت های موجود در یک فایل اکسل را بطور جداگانه در قالب یک فایل مجزا در فرمت PDF ذخیره نماییم .
کدهای VBA
برای شروع یک دکمه را به محیط اکسل خود اضافه نمایید .
حال قطعه کدهای زیر را برای ذخیره شیتهای اکسل کپی نموده و در محیط VBA اکسل خود وارد نماییید .
Sub Button3_Click()
Dim ws As Worksheet
For Each ws In Worksheets
ws.ExportAsFixedFormat xlTypePDF, "D:\" & ws.Name & ".pdf"
Next ws
End Sub
توضیح عملکرد ماکرو ذخیره شیتهای اکسل
عملکرد این ماکرو ساده است به گونه ای که این کدها در مرحله اول تمامی شیت های موجود در اکسل جاری شما را شناسایی می نماید .
در گام بعدی یک به یک این شیت ها را در درایوی به نام D که طبعا شما می توانید آن را برای خود تغییر دهید ذخیره می کند .
این ذخیره نمودن هم به این صورت است که اولا هر شیت را به فرمت PDF تبدیل می کند .
در ثانی نامی که برای هر فایل PDF در نظر گرفته می شود دقیقا با نام شیت مربوطه در اکسل یکی خواهد بود .
در آینده با ماکروهای بیشتری در خدمت شما خواهیم بود .
مطالب زیر را حتما مطالعه کنید
Xlookup در اکسل- تابعی با کلی قابلیت های کاربردی
تابع Hlookup در اکسل💥نکات و ترفندهای کار با آن +ویدئو
تابع فیلتر در اکسل 💥به همراه یک مثال کاربردی
تابع سفارشی در اکسل 💥چطور تابع مدنظرتان را در اکسل ایجاد کنید ؟
تابع countif در اکسل💚راهنمای کامل کار با آن
زوم کردن در سلول های اکسل + ۳ روش مختلف
4 دیدگاه
به گفتگوی ما بپیوندید و دیدگاه خود را با ما در میان بگذارید.
عالی بود ممنون از مطلب کاربردیتون
بیست👌
سلام با این روشی که آموزشی که برای تبدیل اکسل یه پی دی اف آموزش دادین همه شیتهای اکسل به پی دی اف تبدیل میشوند یا فقط یک شیت ؟
این روش فقط شیت جاری را به فرمت پی دی اف تبدیل می کند البته راههایی هست که از اکسل بخواهیم هر شیت را به صورت مجزا برایمان به فرمت پی دی اف تبدیل کند